55 printtab(7)"****** commodore 64 ******":printtab(18)"[169] [223]":printtab(18)"[145] [146] [164][164][146][169][145]":printtab(18)" [146] [163][163][223]":printtab(18)"[145][223] [146][169]":print" do you want to read the scenario?"
85 printtab(16)"[145](y or n)":fort=1to300:next:geta$:printtab(16)"[145](y or n)":fort=1to300:next:ifa$=""then85
250 gosub200:print"[129] you walked into a wall,stupid![155]":fort=1to1000:z=1:next:ifr>50thengosub200:return
260 print"[129] it's unstable,it crumbles! rocks fall!":print" you are knocked to the ground, costing":print" you ";r,"units of energy![155]":e=e-r:fort=1to3000:next:gosub200:return
400 print"[147][158]":poke53281,9:poke53280,9:printdn$(8)tab(13)"gold grabbers!":print" hundreds of little gold grabbers swarm":print"[158] around you, scooping up all your gold!":print" then they drag you off, depositing you":au=0:l=l+1:print" on level[153]";l:print"[144]":gosub10350:ifl<3thene=0:s=0:tr=0
650 gosub708:print"[147][155]":printchr$(14):print""tab(7)"it seems too bad.......":print"[212]he walls are starting to crumble and":print"pieces of the ceiling are falling all":print"around you![217]ou must have gone into an":print"unsafe area of the dungeons!":fori=1to3000:next
662 poke53281,int(rnd(.)*15)+1:gosub708:poke53281,0:fort=1to2000:next:print"[201]n the future, try to be a little":print"more careful about going so deep in..":print"[158][212][200][197][160][196][213][206][199][197][207][206][211][160][207][198][160][200][193][211][211][204][197][160][195][193][211][212][204][197]!":poke53281,int(rnd(.)*15)+1:gosub708:poke53281,0:fori=1to10000:next:print"[147]";chr$(142):sc=au*k:goto9020
700 gosub200:print"[129] tremor!!..a wall is crumbling!":tr=tr-int(rnd(.)*4)+1:print" some of your treasures are lost!!"
771 data"gold pieces","a magic sceptre","[154]a suit of armor","[129]a gilded crown":data"[150]an ancient manuscript","[153]a pearl necklace","[154]a secret potion":data"[156]a mysterious box","[129]a book of wisdom","[158]a golden pendant"
774 data"a tiara of gold",pounds,slugs,slams,smashes,beats,"on the head":data"against the wall","on the back","to the floor","into a door"," claw! ":data" lance! "," club! "," brick! "," mace! ","stunned!","hurt!","reeling!":data"staggered!","not amused!"
800 gosub300:ifl>23orr<l*2thengosub9300:goto154
808 ifl>25thengosub650
810 gosub10300:gosub200:z=0:print" a trap door opens! you plunge down a":gosub300:ifr<20thenr=20
812 print"[145]";int(r/2);"foot shaft,to level";:l=l+int(r/12):printl:gosub300:ife>250thenprint" and into a pool of dragon's blood. you"
816 ife>250thenprint" use most of your energy getting out!":e=int(e*.3):goto822
818 ife>150thenprint"you land on your head,causing an injury"
820 ife>150thenprint" that takes";int(e/2);"units of energy to heal":e=int(e/2)
822 fort=1to4000:next:goto154
850 gosub200:gosub9500:gosub854:print" it "f$(i)" you ";:gosub854:printf$(i+5)" with a":gosub854:printf$(i+10)" you are ";:gosub854:printf$(i+15):return
1080 printdn$(3):ford=1to4:printtab(30+d)"[206][145][145]":next:print"":forv=1to16:printtab(35)"[165]":next:printdn$(5)tab(5)"[151][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][146]":fori=1to7:printtab(5)" [146]":next:print""tab(11)"[158]you are now at":print""tab(13)"level "l:print""tab(37)"[158]l[157]l[157]a[157]d[157]n[157]a[157]r[157]c[157]a[157]s[157]t[157]l[157]e"
4500 poke53280,0:poke53281,15:print"[147][144] [146][169][165] [149][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][144]":print"[169] [165] [149] the legend of lladnar castle [146][144] [145]":print"[145][183][184] [149]y[144][146]ou are an explorer and adventurer. ":print" your travels have led to a secluded "
4550 print" valley hidden in the remote reaches ":print" of central wales. ":print" nearby, stands the ruin of castle ":print" lladnar, the secret hiding place of ":print" the treasures of derf lladnar, earl[163][208][223]"
4600 print" [145]of llansfair, and doer of evil. the [145][184]":print" treasure, (according to legend), is":print" buried under the castle in dungeons":print" many levels deep.";:print" (hit shift)":gosub5600:print" s[144][146]tories told in taverns, where the"
4650 print" consumption of strong drink had made ":print" the mind hazy, and the tongue loose, ":print" were consistent in only two areas. [163][208][223]"spc(39)"[163]":print"[145] first, no one who had seen "chr$(34)"castle":print" lladnar"chr$(34)" had lived to tell about it,"
4700 print" and, second, the stories always told ":print"[169][165]of "chr$(34)"daemons"chr$(34)", watching over the gold. [163]":print" the tales had intrigued you, so you":print" verified them using ancient records.":print" you then gathered supplies, and set "
4740 print" off on foot. (hit shift)":gosub5600:print" ...a[144][146]nd so you travel alone, trusting":print"[169][180] no one except yourself. you follow,":print"[184] (with difficulty), an odd map you've":print" unearthed in the musty cellars of an"
4810 print" old monastery. you make a turn, then":print" you see it, and you move in! thunder":print" crashes.. lightning rips through the":print" sullen sky.. you see the banners and":print" pennants, flaying in the wind... you"
4860 print" move closer still! the drawbridge is[208][146][223][146]":print" lowering! lights from the huge doors[145] [184]":print" beckon you..inside!! (hit shift)":gosub5600:gosub4000:poke53281,1:print"[147] y[151][146]ou look around an immense,totally ":print" vacant room.then,suddenly,without a "
4920 print" warning,the floor gives way,and you ":print" tumble headlong down a long tunnel, ":print" falling...falling...your head slams":print" a boulder,and everything goes black!":fort=1to6000:next:poke53281,0:gosub708
4970 print" press shift to continue [145][145][158]":gosub5600:print"[147]":gosub1000:printdn$(7)tab(16);"[158][207][183][208][157][157][157][180] [170][157][157][157][204][175][186]":poke53280,0:print"[152]you awaken in an area dimly":print" lit by a pair of torches attached":print"to the wall farthest from you.on this"
5040 print"wall you perceive a plaque.(hit shift)":gosub5600:print"[147][155] the plaque reads as follows:":print"[158][209] [209]":print"[145][158] you are on the twentieth level of the ":s$="[145] "
5090 prints$" dungeons of lladnar.all those who have ":prints$" gone before you have perished in agony.":prints$" to survive,you must find the way out, ":prints$" and you must deal with my many beasts, ":prints$" which stalk you even as you read this. "
5140 prints$" i have provided generously for you,and ":prints$" if you are wise,and possess sufficient ":prints$" courage,you will survive and gain vast ":prints$" wealth.if not you will surely succumb. ":prints$"[146] (hit shift)[145][158]":gosub5600
5190 prints$"[145] in the interest of your survival, and ":prints$" to make my little game as interesting, ":prints$" and pleasurable as is possible,you are ":prints$" hereby granted a few special weapons. ":prints$" first,you are endowed with a dozen of "
5240 prints$" my court magicians finest fatal spells.":prints$" you must be careful,however,for some ":prints$" of my pets have a remarkable immunity ":prints$" to them. (although most have not.) ":prints$" you are also to have at your disposal "
5290 prints$" an enchanted sword,and to energize it..":prints$"[146] (hit shift)[158][145][145]":gosub5600:prints$"[145] you are also granted one hundred units ":prints$" of raw energy,to be used against those ":prints$" of my children who shall confront you. "
5340 prints$" at the onset of your ordeal,the power ":prints$" you possess will be so great that none ":prints$" of my beasts will be able to harm you, ":prints$" but it will be diminished by the exact ":prints$" amount possessed by any beast you slay."
5390 prints$" to replenish it,you must enter a cell, ":prints$" or else risk death at a monsters hand! ":prints$" (or claw, or other weapon!!) ":prints$:print" (hit shift)[145][158]":gosub5600:prints$"[145] the cells contain gold,artifacts,more "
5430 prints$" energy units and additional spells,but ":prints$" my creatures lurk in them too. beware! ":prints$" other perils exist within these walls, ":prints$" and you must learn to avoid them,or at ":prints$" least to survive them.if you reach the "
5480 prints$" surface,at level one or level zero you ":prints$" will sooner or later find an exit, and ":prints$" you may leave.be careful not to go any ":prints$" higher than level zero....or else!! ":prints$:print"[145][158][209] (signed) d.l. [209]"
9000 gosub850:print" you had a terrible struggle with the":print" "a$(m);:gosub9500:ife>=mthenprint"[155],but you destroyed it!":gosub10200
9010 ife>=mthene=e-m:k=k+1:n=1:return
9012 gosub9550:poke53280,0:print"";:fori=1to1000:print" ";:next:tr=0:printdn$(11)spc(9)"[158]and you were killed!!":tr=1:sc=au*k*tr:fort=1to3000:next:poke53281,0:print"[147][152] your final score is"sc:poke53280,0:tx$=ti$:tp$=left$(tx$,2)+":"+mid$(tx$,3,2)+":"+right$(tx$,2)
9020 print" elapsed time - ";tp$:printdn$(23)tab(9);"hit shift for totals":gosub5600:goto458
9050 gosub200:print" hmm...you seem to be out of spells!":n=0:return
9100 gosub200:ifs<1then9050
9102 gosub9850:s=s-1:gosub300:print:ifr>mthenprint"your spell has crushed the ";a$(m);"[155],"
9105 ifr>mthenprint"[155] it lies dead at your feet!![145]"
9106 ifr>mthenk=k+1:gosub10200:return
9108 print" the ";a$(m);"[155] is not impressed![155]":ifr>26then9116
9110 print:fori=1to7:print"[145] it attacks.........[129]combat mode![155]":fort=1to100:next:printtab(20)"[145][144] [146][155]":fort=1to100:next:next:goto9000
9116 n=0:return
9300 gosub200:print"[153] you have found an ancient elevator!":ifau>350thenprint" to use the elevator, you will have to"
(.txt)